home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr10 / inter35c.zip / INTHELP.ZIP / GLOBAL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-10-25  |  1KB  |  44 lines
  1. unit Global;
  2. {A unit containing a 'global' object type.  Objects of this type will be
  3.  used to remember the necessary information about the different INTerrupt
  4.  items (necessary to be able to X-reference)}
  5. interface
  6.   uses OPROOT;
  7.  
  8.   type IntDataPtr = ^IntData;
  9.        IntData = object (SingleListNode)
  10.          INT   : String[2];             {INT number}
  11.          AX    : String[4];             {AX contents}
  12.          Other : record                 {other register}
  13.                    Name  : String[2];   {'  ' if none specified}
  14.                    Value : String[4];
  15.                  end{record};
  16.          Topic : Word;                  {Topic number given to this item}
  17.          Text  : String[80];            
  18.             {Supplementary information (some INT items have textual 
  19.              information, necessary to identify them when they share the
  20.              same INT, AX and other register values with one or more other
  21.              items}
  22.  
  23.          {functions and procedures}
  24.  
  25.          constructor Init;
  26.        end{IntData};
  27.  
  28. implementation
  29.  
  30. Constructor IntData.Init;
  31. begin
  32.   if not SingleListNode.Init then
  33.     fail;
  34.   INT         := '  '  ;
  35.   AX          := '    ';
  36.   Other.Name  := '  '  ;
  37.   Other.Value := '    ';
  38.   Topic       := 0     ;
  39.   Text        := ''    ;
  40. end{IntData.Init};
  41.  
  42. end {Global}.
  43. 
  44.